Using the 


PABO 


Digital Learning Computer 


Welcome to the world of the PABO Digital Learning Computer, a device 
designed to teach the amateur the basics of programming a modern 
digital computer system. 


This guide is intended for persons already familiar with the operation 
of digital computers in general. For persons requiring a more thorough 
grounding in the underlying concepts involved, we suggest starting 
out with PABO Manual 1: /ntroduction to Digital Computers (MPN: PDC- 
MO1). 
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Architecture: 

The PABO Digital Learning Computer is a simple 12-bit Von Neuman 
style computer with a Turing Complete instruction set featuring 8 
operations. The PABO’s 12-bit word is divided between a 3-bit opcode 
and an 9-bit memory address affording an address space of 512 
words. 


Registers: 

All operations are performed using a 9-bit Program Counter (PC), a 9- 
bit Accumulator (A), and a Zero Bit (Z) that can test the contents of 
the Accumulator. 


Instruction Formats: 
Bits [11..9] [8..0] [opcode] [address] "General" 
Bits [11..9] [8..0] [000] [microcode] "OPeRate" 


Command Set: 

The PABO can execute instructions to Load or Store data, Add or 
Subtract values, and Jump conditionally. There are also commands to 
Test the value in the Accumulator, logically Not the bits of the 
Accumulator, and Halt processing. 


Notation: 

Here are the essentials of the ADD instruction. (ADD O004xxx A=A+ 
[xxx] ) “ADD” represents the English name for the instruction. 
“004xxx” denotes the machine code format of the instruction. An 004 
in the highest order 3-bits of the memory location indicates an ADD 
instruction. “A=A+[xxx]” describes the ADD operation. In this case the 
lowest order 9-bits of the instruction word are a memory address. The 
contents of that address are ADDed to the value in the Accumulator. 


The PABO Command Set: 
LDA |O02xxx |A = [xxx] 


STO |O05xxx |[xxx] =A 

ADD |004xxx |[A=A + [xxx] 
SUB |006xxx |A =A - [xxx] 

JNZ |Oolxxx |If Z==1, PC = xxx 
TST |O00001 |If A==0, Z=1 else Z=0 
NOT |Q00002 |A=!A 
HLT |000777 |Halt 


Sample Programs: 


# PROBLEM: 


# For any number (n), compute the sum of all integers 1..n 


# :BEGIN 
memory[000]= 002011 


# LDA NUMBER 


memory[0o01]= 004012 # ADD SUM 
memory[002]= 005012 #STOSUM 
memory[003]= 002011 # LDA NUMBER 
memory[004]= 006013 # SUB ONE 
memory[005]= 005011 # STO NUMBER 
memory[006]= 000001 # TST 
memory[007]= 001000 #JNZ BEGIN 


memory[0010]= 000777 # HLT 


# :DATA 

memory[Ool1]= 0006 # 'NUMBER 
memory[0012]= 0000 #'SUM 
memory[0013]= 0001 #'ONE 


# PROBLEM: Push three values to a stack 


# MAIN: 

# PUSH WORD TO STACK 
memory[00000] = 002000 
memory[00001] = 005016 
# UPDATE STACK POINTER 
memory[00002] = 002001 
memory[00003] = 006010 
memory[00004] = 005001 
# UPDATE LOOP COUNTER 
memory[00005] = 002017 
memory[00006] = 006010 
memory[00007] = 005017 
memory[00010] = 000001 
memory[00011] = 001000 
memory[00012] = 000777 


memory[00017] = 000003 


# LDA [this word] 
# STO [top of stack] 


# LDA [stack pointer] 
# SUB [1 from stack pointer] 
# STO [stack pointer] 


# LDA [loop counter] 

# SUB [1 from loop counter] 

# STO [loop counter] 

# TST [is loop counter 0?] 

# JNZ [if not push another value] 
# HLT 


# LOOP COUNTER 


So here’s a funny thing. The PABO Digital Learning Computer actually isn’t a physical device but a 
modern and painfully simple Python program. Here it is. 


# 

# The PABO Digital Learning Computer 

# 

import time # FOR DEBUG SLEEP 

import sys # FOR SYS.EXIT 

memory = [0] *512 # MEMORY 

a = 000 # ACCUMULATOR 

pc = 000 # PROGRAM COUNTER 

z=0 # ZERO FLAG 

o=0 # OVERFLOW FLAG (UNUSED ATM) 


# HERE IS THE CONTENTS OF memory 
# YOU ‘PROGRAM’ PABO WITH THESE ASSIGNMENTS 
# MAIN: 

memory[000000] = 002017 # LDA #3 
memory[000001] = 000002 # NOTA 
memory[000002] = 004015 # ADD #1 
memory[000003] = 004016 # ADD #2 
memory[000004] = 000777 # HLT 

# DATA 

memory[000015] = 000001 
memory[000016] = 000002 
memory[000017] = 000013 


# 
# MAIN 
# 


while True: 
op = memory[pc]>>9 


# HLT (OPR 000777) 
if (memory[pc] == 000777): 
break 
# TST (OPR 000001) 
elif (memory[pc] == 000001): 


if (a == 0): 

z=1 #az==0 
else 

z=0 #a!=0 
pc=pct+l1 


# NOT (OPR 000002) 
elif (memory[pc] == 000002): 
a=007777-a 


pc=pc+1 
# JNZ 
elif (op == 1): # JUMP IF TST (a != 0) RETURNED TRUE 
if(z==1): # Z flag set (a == 0) 
pc=pct+l1 
else: # Z flag clear (a != 0) *JUMP* 


pc = memory[pc] & 000777 


# LDA 
elif (op == 2): # LOAD ACCUMULATOR 
target = memory[pc] & 000777 
a = memory[target] 


pc=pct+l1 
# ADD 
elif (op == 4): # ADD ACCUMULATOR 
target = memory[pc] & 000777 
a =a + memory([target] 
if (a > 007777): 
a=a-0o/7777 
o=1 
pc=pct+l1 
# STA 
elif (op == 5): # STORE ACCUMULATOR 
target = memory[pc] & 000777 
memory[target] = a 
pc=pct+1 
# SUB 
elif (op == 6): # SUB ACCUMULATOR 


target = memory[pc] & 000777 
a =a-memory[target] 
pe=pct+1 


sys.exit() 


